From: Jim Blandy <jimb@redhat.com>
Date: Tue, 22 Jun 1993 02:02:00 +0000 (+0000)
Subject: * subr.el (event-end): Modified to account for multi-click events.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~95200
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=69b95560cde2119f7f3c3d5bd241bc7355bcf27d;p=emacs.git

* subr.el (event-end): Modified to account for multi-click events.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index ad96cc54ee3..9759799fb3a 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -313,7 +313,7 @@ If EVENT is a click event, this function is the same as `event-start'.
 The return value is of the form
    (WINDOW BUFFER-POSITION (COL . ROW) TIMESTAMP)
 The `posn-' functions access elements of such lists."
-  (nth (1- (length event)) event))
+  (nth (if (consp (nth 2 event)) 2 1) event))
 
 (defsubst posn-window (position)
   "Return the window in POSITION.